home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS002.dsk / FRE.txt < prev    next >
Text File  |  2012-02-16  |  267b  |  8 lines
  1. 32763 X1= PEEK (203):M32=0: IF X1<128 THEN 32764:X1=X1-128:M32=1
  2. 32764 FRE=(X1*256+ PEEK (202))-( PEEK (204)+256* PEEK (205))
  3. 32765 IF FRE>0 THEN 32766:FRE=FRE+32767:M32=0
  4. 32766 PRINT " ";FRE;: IF M32 THEN PRINT "+32K": PRINT : PRINT : END 
  5. RUN 32763
  6. DEL32763,32766
  7.  
  8.